home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / G / GetPopUp.cpt / GetPopUp XFCN 1.0 / card_2839.txt < prev    next >
Text File  |  1992-05-08  |  2KB  |  102 lines
  1. -- card: 2839 from stack: in.0
  2. -- bmap block id: 4303
  3. -- flags: 0000
  4. -- background id: 2788
  5. -- name: 
  6.  
  7.  
  8. -- part 9 (field)
  9. -- low flags: 05
  10. -- high flags: 0000
  11. -- rect: left=1 top=86 right=309 bottom=511
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 4
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: 
  20.  
  21.  
  22. -- part 10 (button)
  23. -- low flags: 00
  24. -- high flags: A002
  25. -- rect: left=2 top=54 right=76 bottom=114
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: GetPopUp
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   put GetPopUp() into admode
  37.   answer admode
  38. end mouseUp
  39.  
  40.  
  41. -- part 16 (button)
  42. -- low flags: 00
  43. -- high flags: 2000
  44. -- rect: left=473 top=51 right=84 bottom=511
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 15664 / 15664
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: Home
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   visual dissolve to black
  56.   visual dissolve to white
  57.   visual dissolve to black
  58.   visual dissolve
  59.   go home
  60. end mouseUp
  61.  
  62.  
  63.  
  64. -- part 17 (button)
  65. -- low flags: 00
  66. -- high flags: 4000
  67. -- rect: left=475 top=22 right=50 bottom=512
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 13510 / 13510
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: Jeff
  76. ----- HyperTalk script -----
  77. on mouseEnter
  78.   set hilite of target to true
  79. end mouseEnter
  80.  
  81. on mouseLeave
  82.   set hilite of target to false
  83. end mouseLeave
  84.  
  85.  
  86.  
  87. -- part contents for card part 9
  88. ----- text -----
  89. GetPopUp takes no parameters. It returns true if the version 7.0 pop-up control definition procedure is present. Click on and/or examine the script of the button above to see how it works!
  90.  
  91. A small shareware fee of $5 is requested if you use this external for anything besides personal use.
  92.  
  93. If you have comments, questions, or suggestions, you can contact me in any of the following ways:
  94.  
  95.      America Online: J5rson                  AppleLink: ALL.AMERICAN
  96.      CompuServe:     76675,1772              GEnie:     J5rson
  97.      Internet:       j5rson@aol.com          Telephone: 616.949.0346
  98.  
  99.      U. S. Mail:           Jeff Iverson
  100.                            3841 Whispering Way Dr. SE #101
  101.                            Grand Rapids MI  49546-5849
  102.